perl initialize empty array

visit shbcf.ru